{-# LANGUAGE TemplateHaskell, QuasiQuotes, OverloadedStrings #-}
module Handler.Spacecraft where

import Foundation
import Settings.StaticFiles

import Handler.Common

getSpacecraftR :: Handler RepHtml
getSpacecraftR = do

    newDefaultLayout $ do

        setTitle "Spacecraft"

        addWidget $(widgetFile "spacecraft")


getOrbitR :: Handler RepHtml
getOrbitR = do

    newDefaultLayout $ do

        setTitle "Orbit"

        addWidget $(widgetFile "orbit")

getLaunchVehicleR :: Handler RepHtml
getLaunchVehicleR = do

    newDefaultLayout $ do

        setTitle "Launch Vehicle"

        addWidget $(widgetFile "launchvehicle")

getPlatformR :: Handler RepHtml
getPlatformR = do

    newDefaultLayout $ do

        setTitle "Platform"

        addWidget $(widgetFile "platform")

getTelescopeR :: Handler RepHtml
getTelescopeR = do

    newDefaultLayout $ do

        setTitle "Telescope"

        addScript     $ StaticR js_telescope_js

        addWidget $(widgetFile "telescope")

  where
    images = [(StaticR img_t170m_DSC_0536_jpg, "")
--             ,(StaticR img_t170m_DSC_0537_jpg, "")
             ,(StaticR img_t170m_DSC_0538_jpg, "")
             ,(StaticR img_t170m_DSC_0539_jpg, "")
             ,(StaticR img_t170m_DSC_0540_jpg, "")
             ,(StaticR img_t170m_DSC_0541_jpg, "")
--             ,(StaticR img_t170m_DSC_0542_jpg, "")
--             ,(StaticR img_t170m_DSC_0543_jpg, "")
--             ,(StaticR img_t170m_DSC_0544_jpg, "")
--             ,(StaticR img_t170m_DSC_0544_jpg, "")
--             ,(StaticR img_t170m_DSC_0545_jpg, "")
--             ,(StaticR img_t170m_DSC_0546_jpg, "")
--             ,(StaticR img_t170m_DSC_0547_jpg, "")
--             ,(StaticR img_t170m_DSC_0548_jpg, "")
             ,(StaticR img_t170m_DSC_0549_jpg, "")
             ,(StaticR img_t170m_DSC_0550_jpg, "")
--             ,(StaticR img_t170m_DSC_0551_jpg, "")
--             ,(StaticR img_t170m_DSC_0552_jpg, "")
             ,(StaticR img_t170m_DSC_0553_jpg, "")
             ]

getOpticalSystemR :: Handler RepHtml
getOpticalSystemR = do

    newDefaultLayout $ do

        setTitle "Оптическая система телескопа"

        addWidget $(widgetFile "opticalsystem")

getServiceUnitR :: Handler RepHtml
getServiceUnitR = do

    newDefaultLayout $ do

        setTitle "Служебный комплекс"

        addWidget $(widgetFile "serviceunit")

getInstrumentsR :: Handler RepHtml
getInstrumentsR = do

    newDefaultLayout $ do

        setTitle "Instruments"

        addWidget $(widgetFile "instruments")

getIssisR :: Handler RepHtml
getIssisR = do

    newDefaultLayout $ do

        setTitle "ISSIS"

        addWidget $(widgetFile "issis")

getUvesR :: Handler RepHtml
getUvesR = do

    newDefaultLayout $ do

        setTitle "UVES"

        addWidget $(widgetFile "uves")

getKonusR :: Handler RepHtml
getKonusR = do

    newDefaultLayout $ do

        setTitle "Konus"

        addWidget $(widgetFile "konus")


getFgsR :: Handler RepHtml
getFgsR = do

    newDefaultLayout $ do

        setTitle "Fgs"

        addWidget $(widgetFile "fgs")